home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1997 August / macformat-053.iso / mac / Demos / Acacia Educational Multimedia / START.Dxr / 00014.ls < prev    next >
Encoding:
Text File  |  1997-04-15  |  422 b   |  24 lines
  1. on exitFrame
  2.   RolloNorm()
  3.   go(the frame)
  4. end
  5.  
  6. on RolloNorm
  7.   global gDown
  8.   set OK to 0
  9.   repeat with i = 4 to 7
  10.     if i <> 6 then
  11.       if rollOver(i) or rollOver(i + 5) then
  12.         if gDown = i then
  13.           set OK to i
  14.         else
  15.           set the memberNum of sprite i to 23
  16.         end if
  17.         next repeat
  18.       end if
  19.       set the memberNum of sprite i to 22
  20.     end if
  21.   end repeat
  22.   set gDown to OK
  23. end
  24.